pacman::p_load(dplyr,ggplot2,tidyr,plotly,stringr)
load("RiTW/ritw01.rdata")
ls() #看裡面有多少個物件及結構
[1] "Age10"     "Age26"     "Age5"      "BDDM"      "DemoQ"     "DemoY107" 
[7] "DemoY108"  "dicRitw01" "Income"   

DemoY108 - 村里季度資料


  97   98   99  100  101  102  103  104  105  106  107  108 
7822 7834 7835 7835 7835 7839 7851 7851 7851 7851 7760 7760 
    year      vid     city   county    vname    house      pop fm.ratio 
       0        0        0        0        0        0        0        0 
sp.ratio  elderly 
       0        0 

#六都中出生、死亡、結婚、離婚的比例

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

六都中出生率最高的是臺北市,而最低的是高雄市與臺南市。 六都中死亡率最高的是臺南市,反觀桃園市死亡率最低。 六都中離婚率最高的是臺南市,相較至下桃園市最低。 六都中結婚率最高的是高雄市與臺南市,其他四個城市不相上下。

#六都中扶老比及扶幼比所占的比率

   year     vid    city  county   vname   house     pop  rise_r young_r elder_r 
      0       0       0       0       0       0       0       0       0       0 
Warning in city == c("新北市", "高雄市", "臺北市", "臺中市", "臺南市", "桃園
市"): 較長的物件長度並非較短物件長度的倍數

可看出扶老比逐漸上升–>老年化社會 扶幼比逐漸下降–>少子化社會

扶養比和縣市收入的關係

  1. 整理各縣市所得資料框
  1. 整理各縣市老化資料框

各縣市各年度所的總和統計

依年份比較各縣市的各類所得金額合計(100Y~106Y) 所得為前五高的縣市排名:台北市>新北市>台中市>=高雄市>桃園市 其中在100年時高雄市原本略高於台中市,但在103年之後台中的所得開始超越高雄,且差距有越來越多的趨勢,可見近年來台中的經濟發展比高雄更好。

4.畫出各縣市所得和老化指數的關係

發現偏鄉所得普遍偏低,但人口老化程度嚴重 而在六都之中,高雄和台南市較有「又老又窮」的現象